home *** CD-ROM | disk | FTP | other *** search
/ Creativ Impulse 2 / Creativ Impulse - Volume 2.iso / civ1_install < prev    next >
Encoding:
Text File  |  1997-10-08  |  20.4 KB  |  556 lines
  1. ; proDAD, Michael Christoph
  2. ; $VER: CIV1_Install 1.1 (08.10.1997) (Copyright by proDAD, All rights reserved)
  3.  
  4.  
  5. ; work:install/civ1_install
  6. ; installer civ1_install language deutsch minuser expert appname "Creativ Impulse Vol.1"
  7.  
  8.  
  9. (if (<> @language "english")
  10.   (if (<> @language "deutsch")
  11.     (set @language "deutsch")
  12.   )
  13. )
  14.  
  15.  
  16. ;=============================================================================
  17. ; Deutsche Texte  (default)
  18.  
  19. ;(if (= @language "deutsch")
  20. ;(
  21.   (set #welcome-text          (cat "\nHiermit können Sie die Daten der\n"
  22.                                    "\"Creativ Impulse Vol.1\"\n"
  23.                                    "auf einer Festplatte installieren.\n\n"
  24.                                    "Sie können dabei auswählen, welche Teile der CD kopiert werden sollen.\n\n"
  25.                                    "Die Daten werden dann automatisch in das Verzeichnis von Monument kopiert."))
  26.   (set #welcome-help          (cat "Wählen Sie 'Weitermachen' wird mit der Installation begonnen.\n\n"
  27.                                    "Klicken Sie auf diesen Schalter, wenn Sie die Daten installieren wollen. "
  28.                                    "Mit 'Nicht installieren' können Sie das Installationsprogramm sofort wieder verlassen, "
  29.                                    "ohne daß irgendwelche Änderungen an Ihrem System vorgenommen wurden.\n\n"
  30.                                    "Mit 'Installation abbrechen' können Sie jederzeit bei einer Rückfrage "
  31.                                    "die Installation unterbrechen. Ansonsten können Sie durch Drücken der "
  32.                                    "ESC-Taste die Installation unterbrechen."))
  33.   (set #choice-wcontinue      (cat "Weitermachen"))
  34.   (set #choice-wabort         (cat "Nicht installieren"))
  35.  
  36.   (set #needcd-text           (cat "\nBenötige die CD-Rom \"Creativ Impulse Vol.1\" zum Fortfahren der Installation im CD-Rom-Laufwerk."))
  37.   (set #needcd-help           (cat "Bitte legen Sie die angeforderte CD-Rom in das Laufwerk ein, um mit der Installation fortfahren zu können."
  38.                                    @askdisk-help))
  39.  
  40.   (set #komponenten-text      (cat "Welche Komponenten wollen Sie installieren ?"))
  41.   (set #komponenten-help      (cat "Haken Sie hier bitte die Punkte ab, welche auf die Festplatte kopiert werden sollen. Hinter jedem Eintrag steht die benötigte Festplattenkapazität.\n\n"
  42.                                    @askoptions-help))
  43.  
  44.   (set #selectdrawer-text     (cat "Bitte wählen Sie die Schublade aus, in der sich das Programm Monument befindet."))
  45.   (set #selectdrawer-help     (cat "Wählen Sie die Schublade aus, in der sich das Programm Monument Titler oder Monument Designer befindet.\nIn dieses Verzeichnis werden dann alle Daten installiert.\n\n"
  46.                                    @askdir-help))
  47.  
  48.   (set #lostdiskspace-text    (cat "\nAuf dem Laufwerk \"%s\"\n sind nur noch %ld MBytes frei.\nFür die weitere Installation werden aber\n etwa %ld MBytes benötigt.\n\nInstallation trotzdem fortsetzen ?"))
  49.   (set #lostdiskspace-help    (cat "Auf dem Laufwerk \"%s\" sind nur %ld MByte verfügbar.\nFür die weitere Installation werden aber etwa %ld MByte benötigt.\n"
  50.                                    "Falls bereits Daten der CD-Rom teilweise oder vollständig installiert wurde, wird aber weniger Festplattenplatz benötigt.\n\n"
  51.                                    "Mit 'Weiter installieren' wird die Installation trotzdem fortgesetz,\nmit 'installieren abbrechen' wird die Installation beendet. "
  52.                                    "Dann können Sie nach einem Neustart ein anderes Laufwerk auswählen."
  53.                                    @askbool-help))
  54.  
  55.   (set #choice-continue       (cat "Weiter installieren"))
  56.   (set #choice-abort          (cat "Installation abbrechen"))
  57.  
  58.   (set #onlytitler-text       (cat "\nHINWEIS:\n\nIm ausgewählten Verzeichnis ist nur ein Monument Titler installiert. "
  59.                                    "Daher können die Animationen und Projektdateien der CD-Rom nicht sinnvoll verwendet werden.\n\n\n"
  60.                                    "Installation trotzdem fortsetzen ?"))
  61.   (set #onlytitler-help       (cat "Die CD-Rom enthält größtenteils Daten, die für Monument Designer V3 (oder teilw. für Animage) ausgelegt sind. "
  62.                                    "Monument Titler kann nur die CGFonts, Grafik, einzelne Sequenzebilder, oder das erste Bild aus den Animationsdateien verwenden. "
  63.                                    "Die Projektdateien können nicht geladen werden!"
  64.                                    @askbool-help))
  65.  
  66.   (set #maindefcopy-text      (cat "\nKopieren der Datei Main.def für Monument\n\n%s\n\n\n"
  67.                                    "Nur mit einer aktuellen Main.def-Datei stehen die zusätzlichen CGFonts, Grafiken und Animationen sofort in den Monument-PopUps zur Verfügung."))
  68.   (set #maindefcopy-help      (cat "Nur mit einer aktuellen Main.def-Datei stehen die zusätzlichen CGFonts, Grafiken und Animationen sofort in den Monument-PopUps zur Verfügung.\n\n"
  69.                                    "Bei Kopierbestätigung wird das bisherige Main.def in \"Main.def_old\" umbenannt, sodaß Sie eigene Änderungen übertragen können.\n\n"
  70.                                    @copyfiles-help))
  71.   (set #choice-mcontinue      (cat "Weiter mit kopieren"))
  72.   (set #choice-mabort         (cat "Diesen Teil überspringen"))
  73.  
  74.   (set #amaindefcopy-text     (cat "\n\nSoll eine neue Definitionsdatei (Main.def) für Monument installiert werden ?\n\n"
  75.                                    "Monument benötigt diese Datei, um die Daten der CD automatisch in die PopUps mit einzubinden."))
  76.   (set #amaindefcopy-help     (cat "Wählen Sie 'Weiter mit kopieren' um die Datei 'Main.def' in das Monument-Verzeichnis zu kopieren. "
  77.                                    "Das Monument-Verzeichnis wird automatisch ermittelt oder bei Nichtauffinden abgefragt."
  78.                                    @askbool-help))
  79.  
  80.   (set #complete-text         (cat "Alle Daten werden direkt in Monument zur Verfügung gestellt und können wie gewohnt aus den PopUps (für Schriften oder Grafiken) ausgewählt werden.\n\n"
  81.                                    "Die Projekt-Dateien können über den Menüpunkt \"Projekt/Laden\" aus der Schublade \"CreativImpulse1\" geladen werden."))
  82.  
  83.   (set #completetitler-text   (cat "Alle ausgewählten Daten wurden in das Verzeichnis von Monument Titler kopiert.\n\nDie CGFonts und Grafiken stehen automatisch in den PopUps zur Verfügung."))
  84.  
  85.   (set #completewithout-text  (cat "\n\nHINWEIS:\n\nDa Sie keine Komponenten ausgewählt haben, wurden auch keine Daten von CD-Rom auf die Festplatte kopiert."))
  86.  
  87.  
  88.   (set #abort-destnotexists   (cat "Zielverzeichnis zum Kopieren existiert nicht !!!\n\n\nINSTALLATION WIRD ABGEBROCHEN"))
  89.   (set #abort-destnotmony     (cat "Zielverzeichnis zum Kopieren ist kein Monument Titler- oder Monument Designer-Verzeichnis !!!\n\n\nINSTALLATION WIRD ABGEBROCHEN"))
  90. ;)
  91. ;)
  92.  
  93.  
  94. ;-----------------------------------------------------------------------------
  95. ; *** Procedure zum Kopieren der Main.def-Datei für Monument ***
  96. ; altes Main.def umbenennen und neues Main.def kopieren
  97. ; falls mit neuer CD-Rom installiert wurde befindet sich die Datei darauf,
  98. ; sonst auf der Installations-Diskette
  99. ; nur eine neuere Version wird kopiert
  100. ; bei MonumentTitler V1 die spezielle Main_V1.def-Datei kopieren!
  101.  
  102. (procedure MONY_INSTALL
  103. (
  104.     (set #founderr 0)
  105.  
  106.     ; Monument nicht installiert, dann erst Ziel ermitteln
  107.     (if (<> #monyinstall 1)
  108.       (
  109.         ; IP-Eintrag nach ENV kopieren, damit mit getenv der Inhalt ermittelt werden kann
  110.         (if (= 1 (exists "ssa:ip/monumentdsg" (noreq)))
  111.             (
  112.               (copyfiles (source "ssa:ip/monumentdsg") (dest "env:") (newname "monument") (nogauge))
  113.             )
  114.             (if (= 1 (exists "ssa:ip/monument" (noreq)))
  115.                 (
  116.                   (copyfiles (source "ssa:ip/monument") (dest "env:") (nogauge))
  117.                 )
  118.             )
  119.         )
  120.  
  121.  
  122.         (if (= 1 (exists "env:monument" (noreq)))
  123.             (
  124.               ; Zielverzeichnis ermitteln und das NewLine am Ende entfernen
  125.               (set #mondest (getenv "monument"))
  126.               (set #mondest (substr #mondest 0 (- (strlen #mondest) 1)))
  127.             )
  128.             (
  129.               (set #founderr 1)   ; kein Monument-IP vorhanden
  130.             )
  131.         )
  132.  
  133.         (if (<> 2 (exists (#mondest) (noreq)))
  134.             (
  135.               (set #founderr 2)   ; Monument-Verz existiert nicht mehr
  136.             )
  137.             (if (<> 2 (exists ((tackon #mondest "CGFonts")) (noreq)))
  138.               (set #founderr 3)   ; kein Monument-Verzeichnis
  139.             )
  140.         )
  141.  
  142.  
  143.         ; im Fehlerfall das Ziel-Verzeichnis erfragen
  144.         (if (<> #founderr 0)
  145.             (
  146.               (set #mondest
  147.                 (askdir
  148.                   (prompt  #selectmonydrawer-text)
  149.                   (help    #selectmonydrawer-help)
  150.                   (default #mondest)
  151.                 )
  152.               )
  153.             )
  154.         )
  155.  
  156.  
  157.         ; Ziel nochmals überprüfen, ob es existiert
  158.         (if (<> 2 (exists (#mondest) (noreq)))
  159.           (abort #abort-destnotexists)
  160.         )
  161.  
  162.         ; Ziel überprüfen, ob es sich um eine Monument-Schublade handelt
  163.         (if (<> 2 (exists ((tackon #mondest "CGFonts")) (noreq)))
  164.           (abort #abort-destnotmony)
  165.         )
  166.  
  167.         (working)
  168.  
  169.  
  170.         ; prüfen ob nur ein MonumentTitler V1 vorhanden ist, dann Hinweis ausgeben
  171.         (if (<> 1 (exists ((tackon #mondest "MonumentDesigner")) (noreq)))
  172.         (
  173.             (if (= 1 (exists ((tackon #mondest "MonumentTitler")) (noreq)))
  174.             (
  175.                 (set #monumenttitler 1)
  176.                 (if (= (askbool (prompt #onlytitler-text) (help #onlytitler-help) (choices #choice-continue #choice-abort) (default 0)) 0)
  177.                   (exit (quiet))
  178.                 )
  179.             ))
  180.         ))
  181.       )
  182.     )
  183.  
  184.  
  185.     ; im Fehlerfall den richtigen Pfad hinterlegen für die Zukunft
  186.     (if (<> #founderr 0)
  187.       (textfile (dest "SSA:ip/MonumentDsg") (append #mondest) (append "\n"))
  188.     )
  189.  
  190.  
  191.     ; ab hier kopieren von Main.def
  192.     (if (= #monumenttitler 1)
  193.       (set #source_main_file (tackon @icon "Main_V1.def"))
  194.       (set #source_main_file (tackon @icon "Main.def"))
  195.     )
  196.  
  197.     (if (= 1 (exists (#source_main_file) (noreq)))
  198.     (
  199.         ; Versionsdaten von neuer Main.def-Datei besorgen
  200.         (set #main_vernum (getversion #source_main_file))
  201.         (set #newmain_ver (/ #main_vernum 65536))
  202.         (set #newmain_rev (- #main_vernum (* #newmain_ver 65536) ) )
  203.  
  204.  
  205.         ; Versions-Daten von bisher benutztem Main.def besorgen
  206.         (if (= 1 (exists (tackon #mondest "Main.def") (noreq)))
  207.             (
  208.               (set #main_vernum (getversion (tackon #mondest "main.def")))
  209.               (set #main_ver (/ #main_vernum 65536))
  210.               (set #main_rev (- #main_vernum (* #main_ver 65536) ) )
  211.               (set #main_text ("Zu installierende Version: %ld.%ld\nBisher installierte Version: %ld.%ld" #newmain_ver #newmain_rev #main_ver #main_rev))
  212.             )
  213.             (
  214.               (set #main_text ("Zu installierende Version: %ld.%ld\nBisher ist keine Version installiert" #newmain_ver #newmain_rev))
  215.               (set #ver 0) (set #rev 0)
  216.             )
  217.         )
  218.  
  219.         ; nur neuere Version -nach Rückfrage- kopieren
  220.         (if (or (< #main_ver #newmain_ver) (and (= #main_ver #newmain_ver) (< #main_rev #newmain_rev)))
  221.             (
  222.               (if (= 1 (exists (tackon #mondest "Main.def") (noreq)))
  223.                 (rename (tackon #mondest "Main.def") (tackon #mondest "Main.def_old"))
  224.               )
  225.  
  226.               (if (= 1 (askbool (prompt (#maindefcopy-text #main_text))
  227.                                 (help    #maindefcopy-help)
  228.                                 (choices #choice-mcontinue #choice-mabort)
  229.                        ))
  230.                   (
  231.                     (copyfiles (source #source_main_file) (dest #mondest)                  (newname "Main.def"))
  232.                     (copyfiles (source #source_main_file) (dest (tackon #mondest "Prefs")) (newname "Main.def"))
  233.                   )
  234.               )
  235.             )
  236.         )
  237.     ))
  238. ))
  239.  
  240.  
  241. ;-----------------------------------------------------------------------------
  242. ; hier die Vorbelegungen:
  243.  
  244.  
  245.   (set @default-dest "ram:")
  246.   (set #CIV1disk     "CIV1:")    ; Name der Creativ-CD-Rom Vol1
  247.  
  248.   (set #MEM_anims    110924940)  ; Platzbedarf auf der Festplatte
  249.   (set #MEM_graphics 103373968)
  250.   (set #MEM_sequence 373140017)
  251.   (set #MEM_cebit96   34093098)
  252.   (set #MEM_fonts      9316243)
  253.   (set #MEM_projects    135032)
  254.  
  255.  
  256.   (complete 0)
  257.  
  258. ;-----------------------------------------------------------------------------
  259. ; Begrüßung ausgeben
  260.  
  261.   (user 2) ; immer als Experte installieren
  262.  
  263.   (if (= (askbool (prompt #welcome-text) (help #welcome-help) (choices #choice-wcontinue #choice-wabort) (default 1)) 0)
  264.     (exit (quiet))
  265.   )
  266.  
  267.   (welcome)
  268.  
  269.  
  270. ;-----------------------------------------------------------------------------
  271. ; Komponentenauswahl
  272.  
  273.   (set #komponenten
  274.        (askoptions (prompt #komponenten-text)
  275.                    (help   #komponenten-help)
  276.                    (choices "Animation  111 MByte"
  277.                             "Grafiken   104 MByte"
  278.                             "Sequencen  373 MByte"
  279.                             "CeBit96     35 MByte"
  280.                             "CGFonts    9.3 MByte"
  281.                             "Projekte   135 kByte")
  282.                    (default 63)
  283.        )
  284.   )
  285.  
  286.  
  287.  
  288.   (if (<> #komponenten 0)   ; überhaupt etwas zu installieren
  289.   (
  290.  
  291. ;-----------------------------------------------------------------------------
  292. ; Installations-Diskette muß in einem Laufwerk liegen
  293.  
  294.     (askdisk
  295.       (prompt (#needcd-text #CIV1disk))
  296.       (help   #needcd-help)
  297.       (dest   (substr #CIV1disk 0 (- (strlen #CIV1disk) 1)))
  298.     )
  299.  
  300.     (working)
  301.  
  302.     (complete 5)
  303.  
  304.  
  305. ;-----------------------------------------------------------------------------
  306. ; Zielverzeichnis von Monument ermitteln und überprüfen
  307.  
  308.     ; IP-Eintrag nach ENV kopieren, damit mit getenv der Inhalt ermittelt werden kann
  309.     (if (= 1 (exists "ssa:ip/monumentdsg" (noreq)))
  310.         (
  311.           (copyfiles (source "ssa:ip/monumentdsg") (dest "env:") (newname "monument") (nogauge))
  312.         )
  313.         (if (= 1 (exists "ssa:ip/monument" (noreq)))
  314.             (
  315.               (copyfiles (source "ssa:ip/monument") (dest "env:") (nogauge))
  316.             )
  317.         )
  318.     )
  319.  
  320.  
  321.     (set #founderr 0)
  322.  
  323.     (if (= 1 (exists "env:monument" (noreq)))
  324.         (
  325.           ; Zielverzeichnis ermitteln und das NewLine am Ende entfernen
  326.           (set #mondest (getenv "monument"))
  327.           (set #mondest (substr #mondest 0 (- (strlen #mondest) 1)))
  328.         )
  329.         (
  330.           (set #founderr 1)   ; kein Monument-IP vorhanden
  331.         )
  332.     )
  333.  
  334.  
  335.     (if (<> 2 (exists (#mondest) (noreq)))
  336.         (
  337.           (set #founderr 2)   ; Monument-Verz existiert nicht mehr
  338.         )
  339.         (if (<> 2 (exists ((tackon #mondest "CGFonts")) (noreq)))
  340.           (set #founderr 3)   ; kein Monument-Verzeichnis
  341.         )
  342.     )
  343.  
  344.  
  345.     ; im Fehlerfall das Ziel-Verzeichnis erfragen
  346.     (if (<> #founderr 0)
  347.         (
  348.           (set #mondest
  349.             (askdir
  350.               (prompt  #selectdrawer-text)
  351.               (help    #selectdrawer-help)
  352.               (default #mondest)
  353.             )
  354.           )
  355.         )
  356.     )
  357.  
  358.  
  359.     ; Ziel nochmals überprüfen, ob es existiert
  360.     (if (<> 2 (exists (#mondest) (noreq)))
  361.       (abort #abort-destnotexists)
  362.     )
  363.  
  364.     ; Ziel überprüfen, ob es sich um eine Monument-Schublade handelt
  365.     (if (<> 2 (exists ((tackon #mondest "CGFonts")) (noreq)))
  366.       (abort #abort-destnotmony)
  367.     )
  368.  
  369.     (working)
  370.  
  371.  
  372. ;-----------------------------------------------------------------------------
  373. ; prüfen ob nur ein MonumentTitler V1 vorhanden ist, dann Hinweis ausgeben
  374.  
  375.     (if (<> 1 (exists ((tackon #mondest "MonumentDesigner")) (noreq)))
  376.     (
  377.         (if (= 1 (exists ((tackon #mondest "MonumentTitler")) (noreq)))
  378.         (
  379.             (set #monumenttitler 1)
  380.             (if (= (askbool (prompt #onlytitler-text) (help #onlytitler-help) (choices #choice-continue #choice-abort) (default 0)) 0)
  381.               (exit (quiet))
  382.             )
  383.         ))
  384.     ))
  385.  
  386. ;-----------------------------------------------------------------------------
  387. ; prüfen, ob genug Platz für die Installation vorhanden ist
  388.  
  389.     (set #MEM_need 0)
  390.     (if (in #komponenten 0) (set #MEM_need (+ #MEM_need #MEM_anims)) )
  391.     (if (in #komponenten 1) (set #MEM_need (+ #MEM_need #MEM_graphics)) )
  392.     (if (in #komponenten 2) (set #MEM_need (+ #MEM_need #MEM_sequence)) )
  393.     (if (in #komponenten 3) (set #MEM_need (+ #MEM_need #MEM_cebit96)) )
  394.     (if (in #komponenten 4) (set #MEM_need (+ #MEM_need #MEM_fonts)) )
  395.     (if (in #komponenten 5) (set #MEM_need (+ #MEM_need #MEM_projects)) )
  396.  
  397.  
  398.     (set #diskmem (getdiskspace #mondest))
  399.     (if (< #diskmem #MEM_need)
  400.       (if
  401.         (askbool
  402.           (prompt  (#lostdiskspace-text (cat (getdevice #mondest) ":") (/ #diskmem 1048576) (/ #MEM_need 1048576)) )
  403.           (help    (#lostdiskspace-help (cat (getdevice #mondest) ":") (/ #diskmem 1048576) (/ #MEM_need 1048576)) )
  404.           (default 0)  ;nein
  405.           (choices #choice-continue #choice-abort)
  406.         )
  407.         (working "")
  408.         (exit (quiet))
  409.       )
  410.     )
  411.  
  412.  
  413. ;-----------------------------------------------------------------------------
  414. ; Animationen installieren
  415.  
  416.     (if (in #komponenten 0)
  417.     (
  418.       (makedir (tackon #mondest "Animation"))
  419.  
  420.       (copyfiles
  421.                  (prompt "kopieren Animationen ...")
  422.                  (source (tackon #CIV1disk "Animation"))
  423.                  (dest   (tackon #mondest "Animation"))
  424.                  (all)
  425.       )
  426.     ))
  427.     (complete 20)
  428.  
  429.  
  430. ;-----------------------------------------------------------------------------
  431. ; Grafiken installieren
  432.  
  433.     (if (in #komponenten 1)
  434.     (
  435.       (makedir (tackon #mondest "Graphic"))
  436.  
  437.       (copyfiles
  438.                  (prompt "kopieren Grafiken ...")
  439.                  (source (tackon #CIV1disk "Graphic"))
  440.                  (dest   (tackon #mondest "Graphic"))
  441.                  (all)
  442.       )
  443.     ))
  444.     (complete 40)
  445.  
  446.  
  447. ;-----------------------------------------------------------------------------
  448. ; Sequencen installieren
  449.  
  450.     (if (in #komponenten 2)
  451.     (
  452.       (makedir (tackon #mondest "Sequence"))
  453.  
  454.       (copyfiles
  455.                  (prompt "kopieren Sequencen ...")
  456.                  (source (tackon #CIV1disk "Sequence"))
  457.                  (dest   (tackon #mondest "Sequence"))
  458.                  (all)
  459.       )
  460.     ))
  461.     (complete 60)
  462.  
  463.  
  464. ;-----------------------------------------------------------------------------
  465. ; CeBit96 installieren
  466.  
  467.     (if (in #komponenten 3)
  468.     (
  469.       (makedir (tackon #mondest "CeBIT96"))
  470.  
  471.       (copyfiles
  472.                  (prompt "kopieren CeBIT96 ...")
  473.                  (source (tackon #CIV1disk "CeBIT96"))
  474.                  (dest   (tackon #mondest "CeBIT96"))
  475.                  (all)
  476.       )
  477.     ))
  478.     (complete 70)
  479.  
  480.  
  481. ;-----------------------------------------------------------------------------
  482. ; CGFonts installieren
  483.  
  484.     (if (in #komponenten 4)
  485.     (
  486.       (makedir (tackon #mondest "CGFontsPD"))
  487.  
  488.       (copyfiles
  489.                  (prompt "kopieren CGFontsPD ...")
  490.                  (source (tackon #CIV1disk "CGFontsPD"))
  491.                  (dest   (tackon #mondest "CGFontsPD"))
  492.                  (all)
  493.       )
  494.     ))
  495.     (complete 90)
  496.  
  497.  
  498. ;-----------------------------------------------------------------------------
  499. ; Projekte installieren
  500.  
  501.     (if (in #komponenten 5)
  502.     (
  503.       (makedir (tackon #mondest "Project"))   ; sicherheitshalber !!
  504.       (makedir (tackon #mondest "Project/CreativImpulse1"))
  505.  
  506.       (copyfiles
  507.                  (prompt "kopieren Projekte ...")
  508.                  (source (tackon #CIV1disk "Project"))
  509.                  (dest   (tackon #mondest "Project/CreativImpulse1"))
  510.                  (all)
  511.       )
  512.     ))
  513.     (complete 95)
  514.  
  515.  
  516. ;-----------------------------------------------------------------------------
  517. ; Fertig
  518.  
  519.     (working)
  520.  
  521.     (set #monyinstall 1)           ; Monument-Ziel ist bereits bekannt
  522.     (MONY_INSTALL)                 ; Main.def für Monument installieren
  523.  
  524.     (set @default-dest #mondest)   ; Ziel setzen für korrekte exit-Meldung
  525.  
  526.     (complete 100)
  527.  
  528.     (if (= #monumenttitler 1)
  529.       (exit #completetitler-text)
  530.       (exit #complete-text)
  531.     )
  532.  
  533. ;-----------------------------------------------------------------------------
  534.  
  535.   )
  536.  
  537. ;-----------------------------------------------------------------------------
  538. ; else-Zweig, keine Komponenten abgehakt
  539.  
  540.   (
  541. (debug "")
  542.     (message #completewithout-text)
  543.  
  544.     (if (= (askbool (prompt #amaindefcopy-text) (help #amaindefcopy-help) (choices #choice-mcontinue #choice-mabort) (default 1)) 1)
  545.       (MONY_INSTALL)
  546.     )
  547.  
  548.     (working)
  549.     (complete 100)
  550.  
  551.     (exit (quiet))
  552.   )
  553.   )
  554.  
  555. ;-----------------------------------------------------------------------------
  556.